home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / daten / db / examples / arexxdemos / firstupper.db < prev    next >
Text File  |  1994-09-02  |  359b  |  12 lines

  1. /* Rexxprogram for db that converts the first character of every word in the
  2.    current stringgadget to UPPER
  3.    Written by Richard Ludwig */
  4. options results;GETFIELD;ret=''
  5.  
  6. if DATATYPE(result)='CHAR' & result~='' then do
  7.     do t=1 to WORDS(result)
  8.         ret=ret||UPPER(LEFT(WORD(result,t),1))SUBSTR(WORD(result,t),2)' '
  9.     end
  10.     PUTFIELD LEFT(ret,length(ret)-1)
  11. END
  12.